home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / slides.sda / MAKE SLIDE (.txt) next >
Commodore BASIC  |  2009-10-10  |  4KB  |  117 lines
  1. 10 POKE56,80:POKE644,80:CLR:PRINT"[147]   READING DATA STATEMENTS........"
  2. 20 ADDRESS = 20480: SUM = 0
  3. 30 READ X:IF X<0 THENCHECK =-X:GOTO60
  4. 40 POKE AD,X: AD = AD + 1
  5. 50 SUM=SUM+X:GOTO30
  6. 60 IF SUM<>CHECK THEN170
  7. 70 PRINT"   PUT SLIDESHOW DISK IN DRIVE AND"
  8. 80 PRINT"   PRESS A KEY."
  9. 90 GETK$:IFK$<>""THEN90
  10. 100 GETK$:IFK$=""THEN100
  11. 110 OPEN2,8,2," SLIDE.ML,P,W"
  12. 120 PRINT#2,CHR$(0);CHR$(80);
  13. 130 FORI=20480 TO 21451
  14. 140 PRINT#2,CHR$(PEEK(I));
  15. 150 NEXTI
  16. 160 CLOSE2:STOP
  17. 170 PRINT"ERROR IN DATA.  CHECK DATA STATEMENTS."
  18. 180 STOP
  19. 20480 DATA76,62,80,76,179,80,76,245,80,76
  20. 20490 DATA26,81,76,92,81,76,89,82,76,112
  21. 20500 DATA82,76,151,82,76,61,83,76,97,83
  22. 20510 DATA76,62,83,76,165,82,76,132,83,76
  23. 20520 DATA15,82,255,0,0,0,0,0,0,0
  24. 20530 DATA0,0,0,0,0,0,0,0,0,0
  25. 20540 DATA0,0,169,96,32,167,80,169,100,141
  26. 20550 DATA148,80,169,216,32,172,80,173,0,104
  27. 20560 DATA141,32,208,173,1,104,141,33,208,173
  28. 20570 DATA2,104,141,24,208,173,17,208,41,223
  29. 20580 DATA9,16,141,17,208,173,22,208,41,207
  30. 20590 DATA141,22,208,96,120,169,52,133,1,96
  31. 20600 DATA169,55,133,1,88,96,169,224,141,148
  32. 20610 DATA80,169,32,141,151,80,160,32,162,0
  33. 20620 DATA142,147,80,142,150,80,189,0,224,157
  34. 20630 DATA0,32,232,208,247,238,148,80,238,151
  35. 20640 DATA80,136,208,238,96,169,132,141,148,80
  36. 20650 DATA169,4,141,151,80,160,4,208,215,32
  37. 20660 DATA114,80,169,160,32,128,80,32,120,80
  38. 20670 DATA32,165,80,169,136,141,148,80,169,216
  39. 20680 DATA141,151,80,32,175,80,173,224,131,141
  40. 20690 DATA32,208,173,225,131,141,33,208,32,228
  41. 20700 DATA80,173,214,131,141,22,208,96,173,17
  42. 20710 DATA208,9,48,141,17,208,173,24,208,9
  43. 20720 DATA8,141,24,208,96,169,96,32,128,80
  44. 20730 DATA169,92,32,167,80,32,228,80,32,6
  45. 20740 DATA81,96,173,22,208,41,207,141,22,208
  46. 20750 DATA96,173,22,208,41,223,9,16,141,22
  47. 20760 DATA208,96,169,96,32,128,80,162,0,142
  48. 20770 DATA150,80,160,4,140,151,80,169,64,141
  49. 20780 DATA147,80,169,127,141,148,80,32,146,80
  50. 20790 DATA162,0,142,150,80,160,4,169,216,141
  51. 20800 DATA151,80,169,40,141,147,80,169,131,141
  52. 20810 DATA148,80,32,146,80,173,16,135,141,33
  53. 20820 DATA208,32,228,80,32,15,81,96,169,96
  54. 20830 DATA32,128,80,160,4,140,111,81,162,0
  55. 20840 DATA142,110,81,165,252,157,0,4,232,208
  56. 20850 DATA250,238,111,81,136,208,244,32,228,80
  57. 20860 DATA32,6,81,96,255,0,173,42,80,240
  58. 20870 DATA5,169,4,32,167,81,169,0,141,128
  59. 20880 DATA81,169,216,32,167,81,173,33,208,41
  60. 20890 DATA15,205,43,80,208,6,173,44,80,141
  61. 20900 DATA33,208,96,141,191,81,141,212,81,141
  62. 20910 DATA254,81,162,0,142,190,81,142,211,81
  63. 20920 DATA142,253,81,160,4,189,0,4,141,129
  64. 20930 DATA81,41,15,205,43,80,208,11,173,129
  65. 20940 DATA81,41,240,13,44,80,157,0,4,173
  66. 20950 DATA128,81,240,37,173,129,81,41,240,74
  67. 20960 DATA74,74,74,205,43,80,208,23,173,44
  68. 20970 DATA80,10,10,10,10,72,173,129,81,41
  69. 20980 DATA15,141,129,81,104,13,129,81,157,0
  70. 20990 DATA4,232,208,187,238,191,81,238,212,81
  71. 21000 DATA238,254,81,136,208,175,96,169,0,141
  72. 21010 DATA58,82,174,58,82,189,74,82,141,43
  73. 21020 DATA80,189,59,82,141,44,80,32,130,81
  74. 21030 DATA32,52,82,238,58,82,173,58,82,201
  75. 21040 DATA15,208,225,96,169,4,32,167,80,96
  76. 21050 DATA0,15,8,5,14,2,9,2,6,12
  77. 21060 DATA11,11,11,11,11,0,1,7,13,3
  78. 21070 DATA10,8,4,14,15,5,2,6,9,12
  79. 21080 DATA11,32,114,80,169,160,32,128,80,32
  80. 21090 DATA120,80,169,192,32,167,80,32,228,80
  81. 21100 DATA32,6,81,96,169,100,32,128,80,169
  82. 21110 DATA96,32,167,80,169,92,141,148,80,169
  83. 21120 DATA216,32,172,80,173,254,99,141,32,208
  84. 21130 DATA173,255,99,141,33,208,32,228,80,32
  85. 21140 DATA15,81,96,32,26,81,173,255,91,201
  86. 21150 DATA72,208,3,32,6,81,96,162,8,169
  87. 21160 DATA7,160,7,32,186,255,173,45,80,162
  88. 21170 DATA46,160,80,32,189,255,32,192,255,162
  89. 21180 DATA7,32,198,255,169,95,141,215,82,169
  90. 21190 DATA255,141,214,82,32,207,255,168,32,183
  91. 21200 DATA255,41,64,208,14,140,255,95,238,214
  92. 21210 DATA82,208,3,238,215,82,24,144,231,173
  93. 21220 DATA255,95,141,255,91,169,7,32,195,255
  94. 21230 DATA32,231,255,162,1,169,127,141,33,83
  95. 21240 DATA141,36,83,169,64,141,32,83,141,35
  96. 21250 DATA83,32,31,83,169,131,141,33,83,141
  97. 21260 DATA36,83,169,40,141,32,83,141,35,83
  98. 21270 DATA32,31,83,169,6,141,16,135,96,189
  99. 21280 DATA64,127,141,64,127,238,32,83,238,35
  100. 21290 DATA83,208,13,238,33,83,238,36,83,173
  101. 21300 DATA36,83,201,136,240,3,24,144,226,96
  102. 21310 DATA162,8,169,7,160,0,32,186,255,173
  103. 21320 DATA45,80,162,46,160,80,32,189,255,162
  104. 21330 DATA0,160,92,169,0,32,213,255,176,2
  105. 21340 DATA169,0,133,251,96,162,8,169,7,160
  106. 21350 DATA0,32,186,255,173,45,80,162,46,160
  107. 21360 DATA80,32,189,255,162,0,160,96,169,0
  108. 21370 DATA32,213,255,176,2,169,0,133,251,96
  109. 21380 DATA162,8,169,7,160,7,32,186,255,173
  110. 21390 DATA45,80,162,46,160,80,32,189,255,32
  111. 21400 DATA192,255,162,7,32,198,255,169,91,141
  112. 21410 DATA182,83,169,248,141,181,83,32,207,255
  113. 21420 DATA168,32,183,255,41,64,208,14,140,248
  114. 21430 DATA91,238,181,83,208,3,238,182,83,24
  115. 21440 DATA144,231,169,7,32,195,255,32,231,255
  116. 21450 DATA96, -106984
  117.